object MChatter: TMChatter Left = 265 Top = 224 Width = 675 Height = 495 Caption = 'Mail Chat' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDefaultPosOnly OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object pnHead: TPanel Tag = 11 Left = 0 Top = 0 Width = 667 Height = 53 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object gParticipants: TAddressGrid Left = 2 Top = 2 Width = 663 Height = 49 HelpContext = 10044 Align = alClient BorderStyle = bsNone Color = clBtnFace ColCount = 2 DefaultRowHeight = 20 DefaultDrawing = False RowCount = 1 FixedRows = 0 Options = [goVertLine, goHorzLine, goEditing, goTabs, goAlwaysShowEditor, goThumbTracking] TabOrder = 0 OnEnter = gParticipantsEnter OnExit = gParticipantsExit OnMouseDown = gParticipantsMouseDown OnSelectCell = gParticipantsSelectCell SimpleLook = False OnAddressClick = gParticipantsAddressClick OnAddAddressClick = gParticipantsAddAddressClick ColWidths = ( 16 647) end end object pnClients: TPanel Left = 0 Top = 53 Width = 667 Height = 408 Align = alClient BevelOuter = bvNone TabOrder = 1 object SplitChat: TSplitter Left = 0 Top = 245 Width = 667 Height = 3 Cursor = crVSplit Align = alTop AutoSnap = False ResizeStyle = rsUpdate end object pnChat: TPanel Tag = 11 Left = 0 Top = 0 Width = 667 Height = 245 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object eChat: TTextEditor Left = 2 Top = 2 Width = 663 Height = 241 BgColor = clBlack TextColor = clBlack SelColor = clBlack SelBgColor = clBlack QuoteColor = clBlack RefColor = clBlack Kludge1Color = clBlack Kludge2Color = clBlack Kludge3Color = clBlack ReadOnly = True FontCharset = 1 TabOrder = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Pitch = fpFixed Font.Style = [] Align = alClient end end object pnEdit: TPanel Tag = 11 Left = 0 Top = 248 Width = 667 Height = 118 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object eText: TTextEditor Left = 2 Top = 2 Width = 663 Height = 114 BgColor = clBlack TextColor = clBlack SelColor = clBlack SelBgColor = clBlack QuoteColor = clBlack RefColor = clBlack Kludge1Color = clBlack Kludge2Color = clBlack Kludge3Color = clBlack ReadOnly = False FontCharset = 1 TabOrder = 0 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Pitch = fpFixed Font.Style = [] Align = alClient PopupMenu = pmText end object bSend: TButton Left = 544 Top = 20 Width = 105 Height = 25 Caption = '&Send' TabOrder = 1 OnClick = mSendClick end end object pnButtons: TPanel Tag = 11 Left = 0 Top = 366 Width = 667 Height = 42 Align = alBottom BevelInner = bvLowered TabOrder = 2 OnClick = mSendClick OnResize = pnButtonsResize object lFrom: TLabel Left = 8 Top = 12 Width = 53 Height = 13 Caption = 'Present &as:' end object lAccount: TLabel Left = 316 Top = 14 Width = 43 Height = 13 Caption = 'Account:' end object bClose: TButton Left = 548 Top = 8 Width = 105 Height = 25 Cancel = True Caption = '&Close' TabOrder = 0 OnClick = bCloseClick end object cbUser: TComboBox Left = 364 Top = 11 Width = 177 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 1 OnChange = cbUserChange end object eFrom: TComboBox Left = 80 Top = 11 Width = 225 Height = 21 AutoComplete = False ItemHeight = 13 TabOrder = 2 OnChange = eFromChange end end end object pmText: TPopupMenu Left = 104 Top = 320 object mSend: TMenuItem Caption = '&Send' ShortCut = 16397 OnClick = mSendClick end object N1: TMenuItem Caption = '-' end object mTextCopy: TMenuItem Caption = '&Copy' ShortCut = 16451 OnClick = mTextCopyClick end object mTextCut: TMenuItem Caption = 'Cu&t' ShortCut = 16472 OnClick = mTextCutClick end object mTextPaste: TMenuItem Caption = '&Paste' ShortCut = 16470 OnClick = mTextPasteClick end object N2: TMenuItem Caption = '-' end object mTextSelectAll: TMenuItem Caption = 'Select &all' ShortCut = 16449 OnClick = mTextSelectAllClick end object mClose: TMenuItem Caption = 'Close' ShortCut = 27 OnClick = bCloseClick end end object tmFlash: TTimer Enabled = False OnTimer = tmFlashTimer Left = 260 Top = 169 end object AddrTimer: TTimer Enabled = False Interval = 10 OnTimer = AddrTimerTimer Left = 376 Top = 224 end end